|
|
<%sql="select * from SMT_news where SMT_newssort="&request("id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无内容 | "
else
'分页的实现
listnum=40
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
do while not rs.eof and i
· target="_blank" class=f14><%=rs("SMT_title")%> (<%=rs("SMT_date")%>)
|
<%rs.movenext
i=i+1
j=j-1
loop%>
<%filename="ypnew_list.asp?id="&request("id")%>
<%=rs.recordcount%>条信息 共<%=Rs.pagecount%>页
<% if page=1 then %>
<%else%>
>|<<
&page=<%=page-1%>><<
&page=<%=page-1%>>[<%=page-1%>]
<%end if%><% if Rs.pagecount=1 then %>
<%else%>[<%=page%>]
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
&page=<%=page+1%>>[<%=page+1%>]
&page=<%=page+1%>>>>
&page=<%=Rs.pagecount%>>>>|
<%end if%> |
<%end if%>
|
<%rs.close%>
|